home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / MAL38.ZIP;1 / FOXPRO.ZIP / MALUT1.FXP (.txt) < prev    next >
Encoding:
MS Visual FoxPro App  |  1994-04-29  |  8.9 KB  |  160 lines
  1. Export Type
  2.  [\<1] - Foxbase Plus
  3.  [\<2] - Lotus Worksheet
  4.  [\<3] - Comma Delimited Text File
  5.  [\<4] - Foxpro DBF File
  6.  [\<Q] - Quit to main menu
  7. DEACTIVATE POPUP
  8. MALUT1
  9. Exporting Mailing List, type F
  10. Option Grid for Temporary file
  11.  .AND. 
  12. mUSER_ID$UPPER(USER_ID)
  13.  .AND. 
  14. mSEX$UPPER(SEX)
  15.  .AND. 
  16. mSTATUS$UPPER(STATUS)
  17.  .AND. 
  18. mHOUSE$UPPER(HOUSE)
  19.  .AND. 
  20. mFIRST$UPPER(FIRST)
  21.  .AND. 
  22. mLAST$UPPER(LAST)
  23.  .AND. 
  24. mADDR_1$UPPER(ADDR_1)
  25.  .AND. 
  26. mADDR_2$UPPER(ADDR_2)
  27.  .AND. 
  28. mCITY$UPPER(CITY)
  29.  .AND. 
  30. mSTATE$UPPER(STATE)
  31.  .AND. 
  32. mZIP$UPPER(ZIP)
  33.  .AND. 
  34. mADDR_1$UPPER(SADDR_1)
  35.  .AND. 
  36. mADDR_2$UPPER(SADDR_2)
  37.  .AND. 
  38. mCITY$UPPER(SCITY)
  39.  .AND. 
  40. mSTATE$UPPER(SSTATE)
  41.  .AND. 
  42. mZIP$UPPER(SZIP)
  43.  .AND. 
  44. mBIRTH<=BIRTH
  45.  .AND. 
  46. mBIRTH2>=BIRTH
  47.  .AND. 
  48. mWEDDING<=WEDDING
  49.  .AND. 
  50. mWEDDING2>=WEDDING
  51.  .AND. 
  52. mACT_DATE<=ACT_DATE
  53.  .AND. 
  54. mACT_DATE2>=ACT_DATE
  55.  .AND. 
  56. BOL_1
  57.  .AND. 
  58. BOL_2
  59.  .AND. 
  60. BOL_3
  61.  .AND. (
  62. mMESS&cCOUNT = ALLTRIM(  LEFT(mMESS,nCHR-1))
  63. IF LEN(mMESS&cCOUNT) > 0
  64. .OR.8
  65. mMESS
  66. $UPPER(MESS)
  67. .OR.8
  68. mMESS$UPPER(MESS))
  69. SET FILTER TO &cD
  70. Ascending
  71. Descending8
  72. SET ORDER TO nINDEX &cORDER
  73. Creating Temporary file
  74. Press [Esc] to return to main menu...
  75. bESC =.T.
  76. Press [Esc] to return to main menu
  77. Enter Export File Path/Name: 
  78. Do you wish to format the floppy ?
  79. Creating Floppy Files...
  80. DOSFM
  81. RUN FORMAT &cRUN < FORMAT.330
  82. RUN FORMAT &cRUN < FORMAT.401
  83. Exporting Temporary file
  84. bESC =.T.
  85.  exists.  Append? 
  86.  exists.  Append? 
  87. Select Export field(s) to be modified,
  88. When finished, press [Enter] on the blank field.
  89. REPLACE: 
  90. DO DISP_STRUC
  91. Press [F2] for 
  92.  structure
  93. WITH: 
  94. DES->F
  95. DES->F
  96. Phrase is not the same field type
  97. Exporting Temporary file
  98. DES->MEMOf
  99. DES->MEMOf
  100. DES->F
  101.  WITH 
  102. REPLACE &cROW
  103. Number of Exported Records = F
  104. WINDOW
  105. ENFORM_SCR
  106. BIRTH2
  107. WEDDING2
  108. ACT_DATE2
  109. CADDR_TYPENINDEX
  110. NORDER
  111. OPTION
  112. YPEUSER_ID
  113. MUSER_ID
  114. STATUS
  115. MSTATUS
  116. HOUSE
  117. MHOUSE
  118. FIRST
  119. MFIRST
  120. MLAST
  121. ADDR_1
  122. YPEMADDR_1
  123. ADDR_2
  124. MADDR_2
  125. MCITY
  126. STATE
  127. MSTATE
  128. DATE2BIRTH
  129. MBIRTH
  130. MBIRTH2
  131. WEDDING
  132. MWEDDING
  133. MWEDDING2
  134. ACT_DATE
  135. MACT_DATE
  136. MACT_DATE2BOL_1
  137. BOL_2
  138. BOL_3
  139. MMESS
  140. NCOUNT
  141. CCOUNT
  142. CORDER
  143. PLSWAIT
  144. MECTEMP
  145. ECTEMPPATH
  146. CFILE2
  147. FNFILE
  148. AMETHERM
  149. EDIALOG
  150. YPECFILE
  151. YESNO
  152. RELEASE
  153. PENFLD
  154. FNPOPKEY
  155. IDTHNROW
  156. DISP_STRUC
  157. D:\DMAIL4\
  158. MALUT1.FXP
  159. D:\DMAIL4\MALUT1.PRG
  160.